module Play2 where 

import XMLTypes 

play = Element "PLAY" [
           Element "TITLE" [PCDATA "I am a title"], 
           Element "PERSONAE" [
               Element "PERSONA" [PCDATA "Persona A"],
               Element "PERSONA" [PCDATA "Persona B"]
           ],
           Element "ACT" [
               Element "TITLE" [PCDATA "ACT 1"],
               Element "SCENE" [
                   Element "TITLE" [PCDATA "SCENE 1"],
                   Element "SPEECH" [
                       Element "SPEAKER" [PCDATA "Speaker 1"],
                       Element "LINE" [PCDATA "Line 1"],
                       Element "LINE" [PCDATA "Line 2"]
                   ]
               ]
           ]
       ]
